home *** CD-ROM | disk | FTP | other *** search
- {\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}
- { ////// CONDITIONAL COMPILATION DIRECTIVES FOR CHIEFLZ //////}
- {\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}
-
-
- {\\\\\\\\\\\ release or debug mode? \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}
- {\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}
- { Conditional compilation to check for any `impossible' scenarios...
- Remove for release code. }
-
- {$DEFINE Debug}
-
-
- {$IFDEF Debug}
- {$D+,L+,Q+,R+,S+,Y+}
- {$ELSE}
- {$Q-,R-,S-}
- {$ENDIF}
-
- {\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}
- {\\\\\\\\\\\\\\\ DLL or static link? \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}
-
- {.$DEFINE aDLL} { Remove dot to create a Windows/DPMI DLL }
-
- {\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}
- {\\\\\\\\\\\\\\\ DOS DPMI program? \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}
-
- {$ifdef DPMI}
- {$ifdef aDLL}
- {$define Windows} {use Windows data types for DOS DPMI DLL}
- {$Endif aDLL}
- {$endif DPMI}
-
- {\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}
- {\\\\\\\\\\\\\\\ Win32 or other platform ?\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}
-
- {$ifdef Win32}
- {$B-} { Use short-circuit logic }
- {$H+} { Use long strings }
- {$I+} { IO-errors as exceptions }
- {$J-} { Non-assignable const variables. }
- {$Z1} { Byte-sized enumerated types }
- {$Define Delphi}
- {$Define Windows}
- {$IFDEF Debug}
- {$W+} { <<< Stack frames in Debug Code }
- {$WARNINGS On} { <<< Force compiler to use bacon-saving options }
- {$HINTS On}
- {$ENDIF}
- {$else Win32}
- {$B-} { Use short-circuit logic }
- {$F+) { Use FAR-calls. This is *essential* in DEBUG code }
- {$I-} { IO-Error handling performed manually }
- {$ifdef Windows}
- {$define Win16}
- {$endif Windows}
- {$endif Win32}
-
-
- {\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}
- {\\\\\\\\\\\\\\\ Delphi 1.0? \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}
-
- {$ifDef Ver80}
- {$Z-} { Byte-sized enumerated types }
- {$Define Delphi}
- {$endif Ver80}
-
- {\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}
- {\\\\\\\\\\\\\\\ Windows or like platform ?\\\\\\\\\\\\\\\\\\\\\\\\\\\\}
-
- {$ifdef Windows}
- {$ifndef Delphi}
- {$define TPW}
- {$endif Delphi}
- {$endif Windows}
-
-